home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / label_server.e < prev    next >
Encoding:
Text File  |  1995-12-27  |  320 b   |  24 lines
  1.  
  2. -> Copyright © 1995, Guichard Damien.
  3.  
  4. -> Label generator
  5. -> Mostly an integer generator!
  6.  
  7. OPT MODULE
  8. OPT EXPORT
  9.  
  10. OBJECT label_server PRIVATE
  11.   label:LONG
  12. ENDOBJECT
  13.  
  14. -> Reset.
  15. PROC reset() OF label_server
  16.   self.label:=0
  17. ENDPROC
  18.  
  19. -> Next label
  20. PROC next() OF label_server
  21.   self.label:=self.label+1
  22. ENDPROC self.label
  23.  
  24.